10 PRINT"[147]"
11 X=INT(RND(1)*5)+5:Y=INT(RND(1)*5)+5
12 POKE211,X:POKE214,Y:SYS58732:POKE646,INT(RND(1)*14)+1
13 PRINTCHR$(INT(RND(1)*254)+1):Q=INT(RND(1)*3)+1:ONQGOSUB20,30,40,50:GOTO12
20 IFX<39THENX=X+1:RETURN
30 IFX>1THENX=X-1:RETURN
40 IFY<22THENY=Y+1:RETURN
50 IFY>1THENY=Y-1
60 RETURN